Windows 6-Pak - Disc 1/Windows 6-Pak (InfoMagic) (Disc 1) (1999).ISO/Card-Games/32spad12.exe/ASPADES.EXE/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1998-06-15 | 14KB | 761 lines

object frmMain: TfrmMain
  Left = 201
  Top = 204
  Width = 777
  Height = 507
  HelpContext = 41000
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Absolute Spades'
  Color = clOlive
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = mnuMain
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object bmpBackGround: TTiledBitmap
    left = 0
    top = 0
    width = 769
    height = 461
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object imgPlayer31: TCardDeck
    Left = 265
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer32: TCardDeck
    Left = 279
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer33: TCardDeck
    Left = 293
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer34: TCardDeck
    Left = 307
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer35: TCardDeck
    Left = 321
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer36: TCardDeck
    Left = 335
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer37: TCardDeck
    Left = 349
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer38: TCardDeck
    Left = 363
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer39: TCardDeck
    Left = 377
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer310: TCardDeck
    Left = 391
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer311: TCardDeck
    Left = 405
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer312: TCardDeck
    Left = 419
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer313: TCardDeck
    Left = 433
    Top = 356
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer41: TCardDeck
    Left = 8
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer21: TCardDeck
    Left = 592
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer22: TCardDeck
    Left = 600
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer23: TCardDeck
    Left = 609
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer24: TCardDeck
    Left = 617
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer25: TCardDeck
    Left = 625
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer26: TCardDeck
    Left = 634
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer27: TCardDeck
    Left = 642
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer28: TCardDeck
    Left = 667
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer29: TCardDeck
    Left = 675
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer210: TCardDeck
    Left = 684
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer211: TCardDeck
    Left = 650
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer212: TCardDeck
    Left = 659
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer213: TCardDeck
    Left = 692
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer11: TCardDeck
    Left = 260
    Top = 41
    Width = 71
    Height = 96
    Value = 40
    Visible = False
    OnClick = CardClick
  end
  object imgPlayer12: TCardDeck
    Left = 274
    Top = 41
    Width = 71
    Height = 96
    Value = 52
    Stretch = True
    Visible = False
  end
  object imgPlayer13: TCardDeck
    Left = 292
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer14: TCardDeck
    Left = 308
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer15: TCardDeck
    Left = 324
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer16: TCardDeck
    Left = 340
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer17: TCardDeck
    Left = 356
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer18: TCardDeck
    Left = 372
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer19: TCardDeck
    Left = 388
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer110: TCardDeck
    Left = 404
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer111: TCardDeck
    Left = 420
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer112: TCardDeck
    Left = 436
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer113: TCardDeck
    Left = 452
    Top = 41
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer42: TCardDeck
    Left = 16
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer43: TCardDeck
    Left = 24
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer44: TCardDeck
    Left = 32
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer45: TCardDeck
    Left = 40
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer46: TCardDeck
    Left = 48
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer47: TCardDeck
    Left = 56
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer48: TCardDeck
    Left = 64
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer49: TCardDeck
    Left = 72
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer410: TCardDeck
    Left = 80
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer411: TCardDeck
    Left = 88
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer412: TCardDeck
    Left = 96
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object imgPlayer413: TCardDeck
    Left = 102
    Top = 182
    Width = 71
    Height = 96
    Value = 54
    Visible = False
  end
  object shpPlay: TShape
    Left = 246
    Top = 166
    Width = 269
    Height = 133
    Brush.Color = clGreen
    Enabled = False
    Shape = stRoundRect
  end
  object crdStack4: TCardDeck
    Left = 12
    Top = 112
    Width = 43
    Height = 58
    Value = 54
    Stretch = True
    Visible = False
  end
  object crdStack1: TCardDeck
    Left = 204
    Top = 40
    Width = 43
    Height = 58
    Value = 54
    Stretch = True
    Visible = False
  end
  object crdStack2: TCardDeck
    Left = 712
    Top = 112
    Width = 43
    Height = 58
    Value = 54
    Stretch = True
    Visible = False
  end
  object crdStack3: TCardDeck
    Left = 214
    Top = 391
    Width = 43
    Height = 58
    Value = 54
    Stretch = True
    Visible = False
  end
  object LabelEffect1: TLabelEffect
    Left = 296
    Top = 414
    Width = 449
    Height = 33
    Alignment = taRightJustify
    Caption = 'Press the F2 key to start a game'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblPlayer1: TLabelEffect
    Left = 352
    Top = 6
    Width = 169
    Height = 33
    Caption = 'North'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblPlayer4: TLabelEffect
    Left = 88
    Top = 142
    Width = 97
    Height = 33
    Caption = 'West'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblPlayer3: TLabelEffect
    Left = 352
    Top = 318
    Width = 137
    Height = 33
    Caption = 'South'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGray
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblPlayer2: TLabelEffect
    Left = 609
    Top = 142
    Width = 97
    Height = 33
    Caption = 'East'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblWaitFor: TLabelEffect
    Left = 8
    Top = 8
    Width = 257
    Height = 33
    Caption = 'lblWaitFor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -21
    Font.Name = 'Times New Roman'
    Font.Style = [fsItalic]
    ParentFont = False
    Transparent = True
  end
  object lblWhoWon: TLabelEffect
    Left = 584
    Top = 6
    Width = 175
    Height = 33
    Alignment = taRightJustify
    Caption = 'lblWhoWon'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -21
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lvwBids: TExtListView
    Left = 4
    Top = 367
    Width = 200
    Height = 90
    Columns = <
      item
        Width = 64
      end
      item
        Alignment = taCenter
        Caption = 'Bid'
        Width = 44
      end
      item
        Alignment = taCenter
        Caption = 'Made'
        Width = 44
      end
      item
        Alignment = taCenter
        Caption = 'Bags'
        Width = 44
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    TabStop = False
    ViewStyle = vsReport
    ExtendedStyles = [lvxGridLines]
  end
  object btnInterrupt: TBitBtn
    Left = 716
    Top = 408
    Width = 50
    Height = 50
    Hint = 'Click to Stop.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TabStop = False
    Visible = False
    OnClick = btnInterruptClick
    Layout = blGlyphTop
  end
  object MediaPlayer1: TMediaPlayer
    Left = 272
    Top = 231
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 2
    OnNotify = MediaPlayer1Notify
  end
  object mnuMain: TMainMenu
    Left = 620
    Top = 64
    object mniGame: TMenuItem
      Caption = '&Game'
      object mniGameNew: TMenuItem
        Caption = '&New'
        ShortCut = 113
        OnClick = mniGameNewClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mniGameExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mniGameExitClick
      end
    end
    object mniOptions: TMenuItem
      Caption = '&Options'
      object mniOptLog: TMenuItem
        Caption = '&Log Play'
        Visible = False
        OnClick = mniOptLogClick
      end
      object mniOptNet: TMenuItem
        Caption = '&Network'
        Visible = False
        object mniNetDealer: TMenuItem
          Caption = '&Dealer'
          OnClick = mniNetDealerClick
        end
        object mniOptJoin: TMenuItem
          Caption = '&Join'
          OnClick = mniOptJoinClick
        end
      end
      object mniPrefs: TMenuItem
        Caption = '&Preferences ...'
        OnClick = mniPrefsClick
      end
    end
    object Register1: TMenuItem
      Caption = '&Register'
      OnClick = Register1Click
    end
    object mniHelp: TMenuItem
      Caption = '&Help'
      object mniAbout: TMenuItem
        Caption = '&About Absolute Spades'
        OnClick = mniAboutClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object AbsoluteSpadesManual1: TMenuItem
        Caption = 'Absolute Spades &Manual'
        OnClick = AbsoluteSpadesManual1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SecureOnlineOrdering1: TMenuItem
        Caption = '&Secure Online Ordering'
        OnClick = SecureOnlineOrdering1Click
      end
      object UltisoftCatalog1: TMenuItem
        Caption = '&Ultisoft Catalog'
        OnClick = UltisoftCatalog1Click
      end
      object FreeCD1: TMenuItem
        Caption = '&Free CD'
        OnClick = FreeCD1Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer1Timer
    Left = 554
    Top = 392
  end
  object Timer2: TTimer
    Interval = 75
    OnTimer = Timer2Timer
    Left = 618
    Top = 352
  end
  object Timer3: TTimer
    Interval = 200
    OnTimer = Timer3Timer
    Left = 650
    Top = 352
  end
  object Timer4: TTimer
    Enabled = False
    Interval = 400
    OnTimer = Timer4Timer
    Left = 536
    Top = 312
  end
end